home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / progtool / modula2 / module / preislis.def < prev    next >
Text File  |  1995-11-25  |  3KB  |  62 lines
  1. (******************************************************************************)
  2. (*      This MODULE is Public Domain. Copy me like a beast!                   *)
  3. (*               Christian Ledermann                                          *)
  4. (*               Wölfelkofen 2                                                *)
  5. (*               84166 Adlkofen                                               *)
  6. (******************************************************************************)
  7. (*                                                                            *)
  8. (* Started:   20.12.92     03:54:30                                           *)
  9. (* Version:   20.01.94     04:12:54                                           *)
  10. (*                                                                            *)
  11. (******************************************************************************)
  12. (*                                                                            *)
  13. (* Diese Software ist ohne jede Garantie. Ich verspreche                      *)
  14. (* keinerlei Wartung und übernehme keine Verantwortung für Schäden die        *)
  15. (* durch die Benutzung dieses Programmes entstehen.                           *)
  16. (* Jegliche Ersatzansprüche lehne ich ab.                                     *)
  17. (*                                                                            *)
  18. (******************************************************************************)
  19. DEFINITION MODULE PreisListe;
  20. (* Entnommen ST-Computer 10/89*)
  21. TYPE PriceList;
  22.        GTString= ARRAY [0..15] OF CHAR;
  23.  
  24. TYPE EKPreis = RECORD TreeIndex         : INTEGER;
  25.                       Getraenk          : GTString;
  26.                       Preis,
  27.                       FlaschenProKasten : INTEGER;
  28.                       NeuBezogeneKaesten,
  29.                       ZuBezahlendeKaesten,
  30.                       KaestenGes        : INTEGER;
  31.                END(*RECORD*);
  32.    FindProc  = PROCEDURE (EKPreis,EKPreis):BOOLEAN;
  33.  
  34.  
  35. VAR VerkaufsPreis : RECORD  BierPreis , LimoPreis :INTEGER;
  36.                     END(*RECORD*);
  37.  
  38.  
  39.  
  40.  
  41. PROCEDURE MakePriceList(VAR L:PriceList);
  42. PROCEDURE KillPriceList(VAR L:PriceList);
  43. PROCEDURE First(VAR L:PriceList);
  44. PROCEDURE Last(VAR L:PriceList);
  45. PROCEDURE Next(VAR L:PriceList);
  46. PROCEDURE Prev(VAR L:PriceList);
  47. PROCEDURE Empty(VAR L:PriceList):BOOLEAN;
  48. PROCEDURE AtFirst(VAR L:PriceList):BOOLEAN;
  49. PROCEDURE AtLast(VAR L:PriceList):BOOLEAN;
  50. PROCEDURE Find(VAR L:PriceList;VAR Value:EKPreis;
  51.           VAR Finde:FindProc; Key:EKPreis ):BOOLEAN;
  52. PROCEDURE FindFirst(VAR L:PriceList;VAR Value:EKPreis;
  53.           VAR Finde:FindProc; Key:EKPreis):BOOLEAN;
  54. PROCEDURE FindNext(VAR L:PriceList;VAR Value:EKPreis;
  55.           VAR Finde:FindProc;Key:EKPreis):BOOLEAN;
  56. PROCEDURE GetValue(VAR L:PriceList; VAR Value:EKPreis):BOOLEAN;
  57. PROCEDURE SetValue(VAR L:PriceList; Value:EKPreis);
  58. PROCEDURE EnterElement(VAR L:PriceList);
  59. PROCEDURE AppendElement(VAR L:PriceList);
  60. PROCEDURE RemoveElement(VAR L:PriceList);
  61. END PreisListe.
  62.